sync on
autocam off
color backdrop rgb(0,0,0)
load image "ground.jpg",1
make matrix 1,1000,1000,100,100
prepare matrix texture 1,1,1,1
position matrix 1,-500,0,-500
position camera 0,100,0
set ambient light 20
color ambient light rgb(64,64,128)
set point light 0,0,0,500
position light 0,0,100,0
color light 0,512,512,255
set light range 0,1000
while inkey$()<>"x"
set cursor 0,0
print "LIGHT COMMANDS (X to Exit)"
print "exist:";light exist(0)
sync
endwhile
end